(Info-insert-dir): Use assoc-string.

diff --git a/lisp/info.el b/lisp/info.el
index 9616dbb1feb2e45843930147febd45319f95ef49..3438320beb433f78f446d53bf7537883641ab5a2 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -918,7 +918,7 @@ a case-insensitive match is tried."
                (beginning-of-line)
                (setq end (point))
                (push (list nodename other beg end) this-buffer-nodes)))
-           (if (assoc-ignore-case "top" this-buffer-nodes)
+           (if (assoc-string "top" this-buffer-nodes t)
                (setq nodes (nconc this-buffer-nodes nodes))
              (setq problems t)
              (message "No `top' node in %s" Info-dir-file-name)))))